home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
soundup.zip
/
SAMPLE.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1990-08-21
|
202b
|
11 lines
Program TestSnd;
Uses Crt,Sounds;
Var Snd1,Snd2:Noise;
I:Byte;
Begin
I:=LoadSound('I.SND',Snd1);
I:=LoadSound('PAGE.SND',Snd2);
KeepSound(Snd2);
PlaySound(Snd1);
End.